﻿Public Class ChainofResponsibility

    Private Sub ChainofResponsibility_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón Chain of Responsibility:")
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim Eric As New Presidente()
        Dim Susan As New VicePresidente()
        Dim Jose As New Director()

        Susan.Superior = Eric
        Jose.Superior = Susan

        Jose.AprobarVenta(NumericUpDown1.Value)

    End Sub
End Class